Set objFileSys = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.Shell")

CreateWebSite "Src\Contoso\Contoso.WebSite", "www.contoso.com"
CreateWebSite "Src\Fabrikam\Fabrikam.WebSite", "www.fabrikam.com"
CreateWebSite "Src\Litware\Litware.WebSite", "www.litware.com"
CreateWebSite "Src\EmptyVD", "www.litwarehr.com"
CreateWebSite "Src\EmptyVD", "services.litwarehr.com"

CreateVDir "Src\Litware\LitwareHR.Authorization.SvcHost", "Authorization"
CreateVDir "Src\Litware\LitwareHR.Authentication.SvcHost", "Authentication"
CreateVDir "Src\Litware\LitwareHR.Portfolio.SecureHost", "SecureHost"
CreateVDir "Src\Litware\LitwareHR.Portfolio.UnSecureHost", "UnSecureHost"

Sub CreateWebSite(wsPath, wsName)

    path = objFileSys.GetAbsolutePathName("..\..\..\.") & "\" & wsPath
    cmd = "iisweb.vbs /create """ & path & """ """ & wsName & """ /d " & wsName

    objShell.Run cmd, 0, True

End sub

Sub CreateVDir(vDirPath, vDirName)

    path = objFileSys.GetAbsolutePathName("..\..\..\.") & "\" & vDirPath
    objShell.Run "iisvdir.vbs /create services.litwarehr.com " & vDirName & " """ & path & """", 0, True

End sub